home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / ENTERIP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-23  |  2.2 KB  |  75 lines
  1. VERSION 4.00
  2. Begin VB.Form frmEnterIP 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Enter Server IP Address"
  5.    ClientHeight    =   2085
  6.    ClientLeft      =   1380
  7.    ClientTop       =   3945
  8.    ClientWidth     =   5430
  9.    ControlBox      =   0   'False
  10.    Height          =   2490
  11.    Left            =   1320
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2085
  16.    ScaleWidth      =   5430
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   3600
  19.    Width           =   5550
  20.    Begin VB.TextBox txtIP 
  21.       Height          =   285
  22.       Left            =   240
  23.       TabIndex        =   3
  24.       Text            =   "Enter IP Address Here"
  25.       Top             =   480
  26.       Width           =   3255
  27.    End
  28.    Begin VB.CommandButton cmdCancel 
  29.       Cancel          =   -1  'True
  30.       Caption         =   "Cancel"
  31.       Height          =   375
  32.       Left            =   3840
  33.       TabIndex        =   1
  34.       Top             =   720
  35.       Width           =   1335
  36.    End
  37.    Begin VB.CommandButton cmdOK 
  38.       Caption         =   "OK"
  39.       Default         =   -1  'True
  40.       Height          =   375
  41.       Left            =   3840
  42.       TabIndex        =   0
  43.       Top             =   240
  44.       Width           =   1335
  45.    End
  46.    Begin VB.Label Label2 
  47.       Caption         =   $"enterip.frx":0000
  48.       Height          =   975
  49.       Left            =   240
  50.       TabIndex        =   4
  51.       Top             =   960
  52.       Width           =   3255
  53.    End
  54.    Begin VB.Label Label1 
  55.       BackStyle       =   0  'Transparent
  56.       Caption         =   "Server IP Address:"
  57.       Height          =   255
  58.       Left            =   240
  59.       TabIndex        =   2
  60.       Top             =   240
  61.       Width           =   1575
  62.    End
  63. Attribute VB_Name = "frmEnterIP"
  64. Attribute VB_Creatable = False
  65. Attribute VB_Exposed = False
  66. Option Explicit
  67. Private Sub cmdCancel_Click()
  68.    Form1.AsyncSocket1.RemoteAddress = ""
  69.    Unload Me
  70.    End Sub
  71. Private Sub cmdOK_Click()
  72.    Form1.AsyncSocket1.RemoteAddress = Trim(txtIP)
  73.    Unload Me
  74.    End Sub
  75.